Show the current default directory." (interactive nil) (byte-code "ÀÂÃ \"" [nil default-directory message "Directory %s"] 3))
(defun cd (dir) "\
Make DIR become the current buffer's default directory." (interactive "DChange default directory: ") (byte-code "ÃÄ! Å=? Æ!Ç!?#ÈÉ\"&Ê " [dir system-type default-directory nil expand-file-name vax-vms file-name-as-directory file-directory-p error "%s is not a directory" pwd] 6))
(defun load-file (file) "\
Load the file FILE of Lisp code." (interactive "fLoad file: ") (byte-code "ÁÃÄ!ÁÁÂ$" [file nil t load expand-file-name] 6))
(defun load-library (library) "\
Load the library named LIBRARY.
This is an interface to the function `load'." (interactive "sLoad library: ") (byte-code "ÁÂ!" [library nil load] 2))
(defun switch-to-buffer-other-window (buffer) "\
Select buffer BUFFER in another window." (interactive "BSwitch to buffer in other window: ") (byte-code "ÃÁÄ
Á\")" [pop-up-windows t buffer nil pop-to-buffer] 3))
(defun find-file (filename) "\
Edit file FILENAME.
Switch to a buffer visiting file FILENAME,
creating one if none already exists." (interactive "FFind file: ") (byte-code "ÁÂÃ!!" [filename nil switch-to-buffer find-file-noselect] 3))
(defun find-file-other-window (filename) "\
Edit file FILENAME, in another window.
May create a new window, or reuse an existing one;
see the function display-buffer." (interactive "FFind file in other window: ") (byte-code "ÁÂÃ!!" [filename nil switch-to-buffer-other-window find-file-noselect] 3))
(defun find-file-read-only (filename) "\
Edit file FILENAME but don't save without confirmation.
Like find-file but marks buffer as read-only." (interactive "fFind file read-only: ") (byte-code "ÃÄ!Â" [filename buffer-read-only t nil find-file] 3))
(defun find-alternate-file (filename) "\
Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
(presumably by mistake), use this command to visit the file you really want." (interactive "FFind alternate file: ") (byte-code "ÄÆ ÇÈÉÊ \"!? ËÌ!p
Ê ÍÎ!ÄÏÐ Ñ!)p=8Ò!+" [obuf ofile buffer-file-name oname nil filename buffer-modified-p yes-or-no-p format "Buffer %s is modified; kill anyway? " buffer-name error "Aborted" rename-buffer " **lose**" ((byte-code "p=
Create a suitably named buffer for visiting FILENAME, and return it.
FILENAME (sans directory) is used unchanged if that name is free;
otherwise a string <2> or <3> or ... is appended to get an unused name." (byte-code "Â !ÃÄ\" Å!)" [lastname filename file-name-nondirectory string= "" generate-new-buffer] 4))
(defconst automount-dir-prefix "^/tmp_mnt/" "\
Regexp to match the automounter prefix in a directory name.")
Read file FILENAME into a buffer and return the buffer.
If a buffer exists visiting FILENAME, return that one,
but verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller." (byte-code "È!É \" ÊËÌÍ!SÎO!! $ÌÍ!SÎOÏ!<
5Ð!9ÄÑ\"Ò!ÎzwÓ!wÊ!?^ÄÔ\"wÕÖ!i×jØ! wqÙÆÆ\")Ú!qÛ ÎÜÝË!Þ?\")*" [filename automount-dir-prefix find-file-run-dired buf error nowarn t default-directory expand-file-name string-match file-exists-p file-name-directory match-end 0 nil file-directory-p dired-noselect "%s is a directory." get-file-buffer verify-visited-file-modtime "File %s no longer exists!" yes-or-no-p buffer-modified-p "File has changed since last visited or saved. Flush your changes? " "File has changed since last visited or saved. Read from disk? " revert-buffer create-file-buffer erase-buffer (byte-code "ÂÁ\"" [filename t insert-file-contents] 3) ((file-error (byte-code "Á
Ä
@!?
A)" [error t hooks find-file-not-found-hooks funcall] 4))) after-find-file] 22))
(defun after-find-file (&optional error warn) "\
Called after finding a file and by the default revert function.
Sets buffer mode, parses local variables.
Optional args ERROR and WARN: ERROR non-nil means there was an
error in reading the file. WARN non-nil means warn if there
exists an auto-save file more recent than the visited file.
Finishes by calling the functions in find-file-hooks." (byte-code "Ì !?
yÚÇ!ÛÇ!ÜÝ\"" [buffer-read-only buffer-file-name noninteractive nil not-serious msg warn t error default-directory auto-save-default find-file-hooks file-writable-p file-newer-than-file-p make-auto-save-file-name "Auto save file is newer; consider M-x recover-file" "(New file)" "File is write protected" file-attributes "File exists, but is read-protected." directory-file-name "File not found and directory write-protected" "File not found and directory doesn't exist" message sit-for 1 auto-save-mode normal-mode mapcar funcall] 13))
(defun normal-mode (&optional find-file) "\
Choose the major mode for this buffer automatically.
Also sets up any specified local variables of the file.
Uses the visited file name, the -*- line, and the local variables spec.
This function is called automatically from `find-file'. In that case,
if `inhibit-local-variables' is non-`nil' we require confirmation before
processing a local variables spec. If you run `normal-mode' explicitly,
May base decision on visited file name (See variable auto-mode-list)
or on buffer contents (-*- line or local variables spec), but does not look
for the \"mode:\" local variable. For that, use hack-local-variables." (byte-code "ÊÊÊebËÌ!ÍÎÏ `)Ã# ËÐ!`ÍÎÏ `)Ã# ÑÒ!ÓÐ!`bÍÔ Ã#{bÃÍÕ Ã#) xËÐ!`ÍÖ Ã#kÑ×!m bÓÐ!Ø`\"Ø \"ÙÚÛ
!ÜP!!Ï Ý=Þ!
? ª Åß@@\" ¼@AA¤)
ÎÙ
!*)+" [beg end mode t case-fold-search alist auto-mode-alist name buffer-file-name system-type nil skip-chars-forward "
`\"ë!Âìí!î\"ãÂT×ï!åã!ëp!êð!×Ø! ä !læñ!ò=$óôíõ!!öP!!T÷=J 2?:øù ú\"Cûü!G÷!Tý!L+~-)" [case-fold-search t nil inhibit-local-variables force buffer-file-name continue prefix prefixlen suffix beg selective-display str var val ignore-local-eval search-backward "
" 3000 move search-forward "Local Variables:" ((byte-code "Áp! ÃÄ `\")ÅÆÇÈ!\"!" [buffer-file-name switch-to-buffer beginning-of-line set-window-start selected-window y-or-n-p format "Set local variables as specified at end of %s? " file-name-nondirectory] 9)) skip-chars-forward " " buffer-substring end-of-line match-beginning 0 beginning-of-line regexp-quote "$" re-search-forward "[
]" forward-line 1 looking-at forward-char error "Local variables entry is missing the prefix" "^:
" "Missing colon in local variables entry" skip-chars-backward read string-equal downcase "end" "^:" "
" "Local variables entry is terminated incorrectly" mode funcall intern symbol-name "-mode" eval string= user-login-name "root" message "Ignoring `eval:' in file's local variables" make-local-variable] 42))
(defun set-visited-file-name (filename) "\
Change name of file visited in current buffer to FILENAME.
The next time the buffer is saved it will go in the newly specified file.
nil or empty string as argument means make buffer not be visiting any file.
Remember to delete the initial contents of the minibuffer
if you wish to pass an empty string as the argument." (interactive "FSet visited file name: ") (byte-code "Á ÊË\"ÁÌ!Í
Makes buffer visit that file, and marks it not modified." (interactive "FWrite file: ") (byte-code "Â?ÃÄ\"Å!ÆÁ!Ç " [filename t nil string-equal "" set-visited-file-name set-buffer-modified-p save-buffer] 5))
(defun backup-buffer nil "\
Make a backup of the disk file visited by the current buffer, if appropriate.
This is normally done before saving the buffer the first time.
If the value is non-nil, it is the result of `file-modes' on the original file;
this means that the caller, after saving the buffer, should change the modes
of the new file to agree with the old modes." (byte-code " 2 ? 2Ã
ÃÆ%* Ãôõ)ö **÷ø!" [setmodes tempsetmodes buffer-file-name nil default-directory auto-save-default t buffer-backed-up require-final-newline hooks write-file-hooks done file-precious-flag rename nodelete file system-type buffer-modified-p expand-file-name read-file-name "File to save in: " file-name-directory auto-save-mode file-writable-p yes-or-no-p format "File %s is write-protected; try to save anyway? " file-name-nondirectory error "Attempt to save to a file which you aren't allowed to write" verify-visited-file-modtime file-exists-p "Disk file has changed since visited or saved. Save anyway? " "Save not confirmed" backup-buffer widen 1 /= 10 "Buffer %s does not end in newline. Add one? " buffer-name funcall "#" (byte-code "Ä Â#Å !" [buffer-file-name file t setmodes rename-file file-modes] 4) ((file-error (byte-code "ÁÃ" [rename nil nodelete t] 2))) ((byte-code "Å
Mark current buffer as unmodified, not needing to be saved." (interactive) (byte-code "ÀÁÂ!ÃÀ!" [nil message "Modification-flag cleared" set-buffer-modified-p] 3))
(defun toggle-read-only nil "\
Change whether this buffer is visiting its file read-only." (interactive) (byte-code "Á?ÂÃ !" [buffer-read-only nil set-buffer-modified-p buffer-modified-p] 3))
(defun insert-file (filename) "\
Insert contents of file FILENAME into buffer after point.
Set mark after the inserted text." (interactive "fInsert file: ") (byte-code "ÂÃ !Ä`A@\\!)" [tem filename nil insert-file-contents push-mark] 4))
(defun append-to-file (start end filename) "\
Append the contents of the region to the end of file FILENAME.
When called from a function, expects three arguments,
START, END and FILENAME. START and END are buffer positions
saying what text to write." (interactive "r
FAppend to file: ") (byte-code "ÄÅ
Ã$" [start end filename t nil write-region] 5))
(defvar revert-buffer-function nil "\
Function to use to revert this buffer, or nil to do the default.")
(defun revert-buffer (&optional arg noconfirm) "\
Replace the buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
If latest auto-save file is more recent than the visited file,
asks user whether to use that instead.
First argument (optional) non-nil means don't offer to use auto-save file.
This is the prefix arg when called interactively.
Second argument (optional) non-nil means don't ask for confirmation at all.
If revert-buffer-function's value is non-nil, it is called to do the work." (interactive "P") (byte-code "ÉÍ
#¢` ? 'Î ' 'Ï! 'ÐÑ!02?@ÒÓ!¡Ô!?PÒÕ\"¡
[Ö×Ø\"! ¡? nÙp!? nÉ
Ë=zÉ
ÉË
ÉÚ Û )Ü?\"*d^bÝÉ!Ë+" [revert-buffer-function arg noconfirm opoint auto-save-p buffer-auto-save-file-name file-name buffer-file-name buffer-backed-up nil buffer-undo-list t buffer-read-only funcall recent-auto-save-p file-readable-p y-or-n-p "Buffer has been auto-saved recently. Revert from auto-save file? " error "Buffer does not seem to be associated with any file" file-exists-p "File %s no longer exists!" yes-or-no-p format "Revert buffer from file %s? " verify-visited-file-modtime unlock-buffer erase-buffer insert-file-contents after-find-file] 15))
(defun recover-file (file) "\
Visit file FILE, but get contents from its last auto-save file." (interactive "FRecover file: ") (byte-code "ÅÉ!Ê! ËÌ\"Í )Î \"?(ËÏ \"IÐFÑÒÆ\"!ÅÓ Ô Å\")ÕÅ!IËÖ!)Å×Ø!" [file file-name buffer-file-name system-type standard-output nil t buffer-read-only buffer-auto-save-file-name expand-file-name auto-save-file-name-p error "%s is an auto-save file" make-auto-save-file-name file-newer-than-file-p "Auto-save file %s not current" ((byte-code "Å=? ÆÇ !ÈÉ ÂÊ&ËÌÍ\"!" [system-type standard-output nil file file-name vax-vms "*Directory*" buffer-flush-undo call-process "ls" "-l" yes-or-no-p format "Recover auto save file %s? "] 10)) switch-to-buffer find-file-noselect erase-buffer insert-file-contents after-find-file "Recover-file cancelled." message "Auto-save off in this buffer till you do M-x auto-save-mode."] 14))
(defun kill-some-buffers nil "\
For each buffer, ask whether to kill it." (interactive) (byte-code "ÃÄ B@Å !Æ
Ç\"? 8È
ÉHÊ\" 8ËÌÍ
Î !/Ï0Ð#! 8Ñ !*A)" [list buffer name nil buffer-list buffer-name string-equal "" /= 0 32 yes-or-no-p format "Buffer %s %s. Kill? " buffer-modified-p "HAS BEEN EDITED" "is unmodified" kill-buffer] 11))
(defun auto-save-mode (arg) "\
Toggle auto-saving of contents of current buffer.
With arg, turn auto-saving on if arg is positive, else off." (interactive "P") (byte-code "Æ ?? Â= < Ç ! ÈV 6 - -?46É t IÊËGÌHÍ\"" [buffer-auto-save-file-name arg t buffer-file-name auto-save-visited-file-name buffer-read-only nil integerp 0 make-auto-save-file-name message "Auto-save %s (in this buffer)" "on" "off"] 5))
(defun rename-auto-save-file nil "\
Adjust current buffer's auto save file name for current conditions.
Also rename any existing auto save file." (byte-code " Ä \" \"Å